/ BBS in a Box 12 / BBS in a box XII-1.iso / Files / Tele / C / Comet2.1.3.sit / 3270XCMD / TNReceive.c

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0b 54 4e 52 65 63 65 | 69 76 65 2e 63 00 00 00 |..TNRece|ive.c...|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4d 50 53 | 20 00 00 00 00 00 00 00 |.TEXTMPS| .......|
|00000050| 00 00 00 00 00 0f 12 00 | 00 01 7e a2 80 a2 6f a2 |........|..~...o.|
|00000060| 80 a2 6f 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |..o.....|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 0d 64 00 00 |........|.....d..|
|00000080| 2f 2a 20 54 4e 52 65 63 | 65 69 76 65 2e 63 20 2d |/* TNRec|eive.c -|
|00000090| 2d 20 58 43 4d 44 20 63 | 6f 70 79 20 33 32 37 30 |- XCMD c|opy 3270|
|000000a0| 20 73 63 72 65 65 6e 20 | 69 6e 74 6f 20 61 20 67 | screen |into a g|
|000000b0| 6c 6f 62 61 6c 20 0d 09 | 63 6f 70 79 72 69 67 68 |lobal ..|copyrigh|
|000000c0| 74 20 31 39 38 39 20 43 | 6f 72 6e 65 6c 6c 20 55 |t 1989 C|ornell U|
|000000d0| 6e 69 76 65 72 73 69 74 | 79 20 0d 2a 2f 0d 0d 0d |niversit|y .*/...|
|000000e0| 23 69 6e 63 6c 75 64 65 | 20 3c 54 79 70 65 73 2e |#include| <Types.|
|000000f0| 68 3e 0d 23 69 6e 63 6c | 75 64 65 20 3c 4d 65 6d |h>.#incl|ude <Mem|
|00000100| 6f 72 79 2e 68 3e 0d 23 | 69 6e 63 6c 75 64 65 20 |ory.h>.#|include |
|00000110| 3c 44 65 76 69 63 65 73 | 2e 68 3e 0d 23 69 6e 63 |<Devices|.h>.#inc|
|00000120| 6c 75 64 65 20 3c 48 79 | 70 65 72 58 43 6d 64 2e |lude <Hy|perXCmd.|
|00000130| 68 3e 0d 23 69 6e 63 6c | 75 64 65 20 3c 45 72 72 |h>.#incl|ude <Err|
|00000140| 6f 72 73 2e 68 3e 0d 0d | 23 69 6e 63 6c 75 64 65 |ors.h>..|#include|
|00000150| 20 3c 4f 53 55 74 69 6c | 73 2e 68 3e 0d 0d 23 69 | <OSUtil|s.h>..#i|
|00000160| 6e 63 6c 75 64 65 20 3c | 53 74 72 69 6e 67 2e 68 |nclude <|String.h|
|00000170| 3e 0d 0d 23 69 6e 63 6c | 75 64 65 20 22 54 4e 64 |>..#incl|ude "TNd|
|00000180| 72 76 72 2e 68 22 0d 0d | 0d 70 61 73 63 61 6c 20 |rvr.h"..|.pascal |
|00000190| 76 6f 69 64 20 64 65 62 | 75 67 67 65 72 28 29 09 |void deb|ugger().|
|000001a0| 65 78 74 65 72 6e 20 30 | 78 41 39 46 46 3b 20 20 |extern 0|xA9FF;  |
|000001b0| 20 0d 0d 65 78 74 65 72 | 6e 20 6c 6f 6e 67 20 6d | ..exter|n long m|
|000001c0| 79 73 74 72 74 6f 6c 6f | 6e 67 28 29 3b 0d 0d 70 |ystrtolo|ng();..p|
|000001d0| 61 73 63 61 6c 20 76 6f | 69 64 20 54 4e 52 65 63 |ascal vo|id TNRec|
|000001e0| 65 69 76 65 28 68 79 63 | 70 29 0d 58 43 6d 64 50 |eive(hyc|p).XCmdP|
|000001f0| 74 72 20 68 79 63 70 3b | 0d 7b 0d 09 43 6e 74 72 |tr hycp;|.{..Cntr|
|00000200| 6c 50 61 72 61 6d 20 64 | 72 76 70 62 3b 0d 09 6c |lParam d|rvpb;..l|
|00000210| 6f 6e 67 20 2a 20 61 72 | 67 73 3b 0d 09 53 74 72 |ong * ar|gs;..Str|
|00000220| 32 35 35 20 70 73 74 72 | 3b 0d 09 63 68 61 72 20 |255 pstr|;..char |
|00000230| 2a 20 62 75 66 70 74 72 | 3b 0d 09 48 61 6e 64 6c |* bufptr|;..Handl|
|00000240| 65 20 73 74 72 68 61 6e | 64 3b 0d 09 69 6e 74 20 |e strhan|d;..int |
|00000250| 6c 65 6e 67 74 68 3b 0d | 09 0d 09 69 66 20 28 68 |length;.|...if (h|
|00000260| 79 63 70 2d 3e 70 61 72 | 61 6d 43 6f 75 6e 74 20 |ycp->par|amCount |
|00000270| 21 3d 20 32 29 20 7b 0d | 09 09 73 65 74 68 61 6e |!= 2) {.|..sethan|
|00000280| 64 28 26 68 79 63 70 2d | 3e 72 65 74 75 72 6e 56 |d(&hycp-|>returnV|
|00000290| 61 6c 75 65 2c 20 22 54 | 4e 52 65 63 65 69 76 65 |alue, "T|NReceive|
|000002a0| 20 54 4e 73 63 72 65 65 | 6e 2c 61 67 6c 6f 62 61 | TNscree|n,agloba|
|000002b0| 6c 3a 20 6e 65 65 64 20 | 32 20 61 72 67 75 6d 65 |l: need |2 argume|
|000002c0| 6e 74 73 2c 20 61 67 6c | 6f 62 61 6c 20 71 75 6f |nts, agl|obal quo|
|000002d0| 74 65 64 22 29 3b 0d 09 | 09 72 65 74 75 72 6e 3b |ted");..|.return;|
|000002e0| 0d 09 7d 0d 09 0d 09 2f | 2a 20 72 65 66 6f 72 6d |..}..../|* reform|
|000002f0| 61 74 20 62 75 66 20 70 | 74 72 20 66 72 6f 6d 20 |at buf p|tr from |
|00000300| 73 74 72 69 6e 67 20 74 | 6f 20 70 74 72 20 2a 2f |string t|o ptr */|
|00000310| 0d 23 69 66 64 65 66 20 | 48 59 50 45 0d 09 2f 2a |.#ifdef |HYPE../*|
|00000320| 20 48 79 70 65 72 43 61 | 72 64 20 31 2e 32 2e 35 | HyperCa|rd 1.2.5|
|00000330| 20 53 74 72 54 6f 4c 6f | 6e 67 20 6e 6f 20 6c 6f | StrToLo|ng no lo|
|00000340| 6e 67 65 72 20 77 6f 72 | 6b 73 20 68 65 72 65 21 |nger wor|ks here!|
|00000350| 20 2a 2f 0d 09 48 4c 6f | 63 6b 28 28 48 61 6e 64 | */..HLo|ck((Hand|
|00000360| 6c 65 29 20 68 79 63 70 | 2d 3e 70 61 72 61 6d 73 |le) hycp|->params|
|00000370| 5b 30 5d 29 3b 0d 09 5a | 65 72 6f 54 6f 50 61 73 |[0]);..Z|eroToPas|
|00000380| 28 68 79 63 70 2c 20 2a | 68 79 63 70 2d 3e 70 61 |(hycp, *|hycp->pa|
|00000390| 72 61 6d 73 5b 30 5d 2c | 20 28 53 74 72 69 6e 67 |rams[0],| (String|
|000003a0| 50 74 72 29 20 26 70 73 | 74 72 5b 30 5d 29 3b 0d |Ptr) &ps|tr[0]);.|
|000003b0| 09 48 55 6e 6c 6f 63 6b | 28 28 48 61 6e 64 6c 65 |.HUnlock|((Handle|
|000003c0| 29 20 68 79 63 70 2d 3e | 70 61 72 61 6d 73 5b 30 |) hycp->|params[0|
|000003d0| 5d 29 3b 0d 09 0d 09 62 | 75 66 70 74 72 20 3d 20 |]);....b|ufptr = |
|000003e0| 28 63 68 61 72 20 2a 29 | 20 53 74 72 54 6f 4c 6f |(char *)| StrToLo|
|000003f0| 6e 67 28 68 79 63 70 2c | 20 28 53 74 72 33 31 20 |ng(hycp,| (Str31 |
|00000400| 2a 29 20 26 70 73 74 72 | 5b 30 5d 29 3b 0d 23 65 |*) &pstr|[0]);.#e|
|00000410| 6c 73 65 0d 09 62 75 66 | 70 74 72 20 3d 20 28 63 |lse..buf|ptr = (c|
|00000420| 68 61 72 20 2a 29 20 6d | 79 73 74 72 74 6f 6c 6f |har *) m|ystrtolo|
|00000430| 6e 67 28 2a 68 79 63 70 | 2d 3e 70 61 72 61 6d 73 |ng(*hycp|->params|
|00000440| 5b 30 5d 29 3b 0d 23 65 | 6e 64 69 66 0d 0d 09 2f |[0]);.#e|ndif.../|
|00000450| 2a 20 64 75 6d 70 20 77 | 68 6f 6c 65 20 73 63 72 |* dump w|hole scr|
|00000460| 65 65 6e 20 62 75 66 66 | 65 72 20 69 6e 74 6f 20 |een buff|er into |
|00000470| 61 20 68 61 6e 64 6c 65 | 20 2a 2f 0d 09 69 66 20 |a handle| */..if |
|00000480| 28 28 73 74 72 68 61 6e | 64 20 3d 20 4e 65 77 48 |((strhan|d = NewH|
|00000490| 61 6e 64 6c 65 28 28 53 | 69 7a 65 29 20 48 54 4e |andle((S|ize) HTN|
|000004a0| 49 5f 42 55 46 53 49 5a | 45 29 29 20 3d 3d 20 28 |I_BUFSIZ|E)) == (|
|000004b0| 48 61 6e 64 6c 65 29 20 | 30 4c 29 20 7b 0d 09 09 |Handle) |0L) {...|
|000004c0| 73 65 74 68 61 6e 64 28 | 26 68 79 63 70 2d 3e 72 |sethand(|&hycp->r|
|000004d0| 65 74 75 72 6e 56 61 6c | 75 65 2c 20 22 4f 75 74 |eturnVal|ue, "Out|
|000004e0| 20 6f 66 20 6d 65 6d 6f | 72 79 22 29 3b 0d 09 09 | of memo|ry");...|
|000004f0| 72 65 74 75 72 6e 3b 0d | 09 7d 0d 09 48 4c 6f 63 |return;.|.}..HLoc|
|00000500| 6b 28 73 74 72 68 61 6e | 64 29 3b 0d 09 6c 65 6e |k(strhan|d);..len|
|00000510| 67 74 68 20 3d 20 73 63 | 72 65 65 6e 64 75 6d 70 |gth = sc|reendump|
|00000520| 28 62 75 66 70 74 72 2c | 20 62 75 66 70 74 72 2c |(bufptr,| bufptr,|
|00000530| 20 2a 73 74 72 68 61 6e | 64 2c 20 31 39 32 30 29 | *strhan|d, 1920)|
|00000540| 3b 0d 09 48 55 6e 6c 6f | 63 6b 28 73 74 72 68 61 |;..HUnlo|ck(strha|
|00000550| 6e 64 29 3b 0d 09 0d 09 | 2a 28 20 28 28 63 68 61 |nd);....|*( ((cha|
|00000560| 72 20 2a 29 20 2a 20 73 | 74 72 68 61 6e 64 29 20 |r *) * s|trhand) |
|00000570| 2b 20 6c 65 6e 67 74 68 | 29 20 3d 20 30 3b 09 09 |+ length|) = 0;..|
|00000580| 2f 2a 20 74 65 72 6d 69 | 6e 61 74 65 20 77 69 74 |/* termi|nate wit|
|00000590| 68 20 61 20 6e 75 6c 6c | 20 2a 2f 0d 09 0d 09 2f |h a null| */..../|
|000005a0| 2a 20 73 65 74 20 74 68 | 65 20 67 6c 6f 62 61 6c |* set th|e global|
|000005b0| 20 67 69 76 65 6e 20 61 | 73 20 61 6e 20 61 72 67 | given a|s an arg|
|000005c0| 20 74 6f 20 74 68 65 20 | 68 61 6e 64 6c 65 27 73 | to the |handle's|
|000005d0| 20 63 6f 6e 74 65 6e 74 | 73 20 2a 2f 0d 09 48 4c | content|s */..HL|
|000005e0| 6f 63 6b 28 28 48 61 6e | 64 6c 65 29 20 68 79 63 |ock((Han|dle) hyc|
|000005f0| 70 2d 3e 70 61 72 61 6d | 73 5b 31 5d 29 3b 0d 09 |p->param|s[1]);..|
|00000600| 5a 65 72 6f 54 6f 50 61 | 73 28 68 79 63 70 2c 20 |ZeroToPa|s(hycp, |
|00000610| 28 63 68 61 72 20 2a 29 | 20 2a 68 79 63 70 2d 3e |(char *)| *hycp->|
|00000620| 70 61 72 61 6d 73 5b 31 | 5d 2c 20 26 70 73 74 72 |params[1|], &pstr|
|00000630| 5b 30 5d 29 3b 0d 09 48 | 55 6e 6c 6f 63 6b 28 28 |[0]);..H|Unlock((|
|00000640| 48 61 6e 64 6c 65 29 20 | 68 79 63 70 2d 3e 70 61 |Handle) |hycp->pa|
|00000650| 72 61 6d 73 5b 31 5d 29 | 3b 0d 0d 0d 09 53 65 74 |rams[1])|;....Set|
|00000660| 47 6c 6f 62 61 6c 28 68 | 79 63 70 2c 20 26 70 73 |Global(h|ycp, &ps|
|00000670| 74 72 5b 30 5d 2c 20 73 | 74 72 68 61 6e 64 29 3b |tr[0], s|trhand);|
|00000680| 0d 09 44 69 73 70 6f 73 | 48 61 6e 64 6c 65 28 73 |..Dispos|Handle(s|
|00000690| 74 72 68 61 6e 64 29 3b | 0d 0d 09 69 66 20 28 68 |trhand);|...if (h|
|000006a0| 79 63 70 2d 3e 72 65 73 | 75 6c 74 29 20 7b 0d 09 |ycp->res|ult) {..|
|000006b0| 09 73 65 74 68 61 6e 64 | 28 26 68 79 63 70 2d 3e |.sethand|(&hycp->|
|000006c0| 72 65 74 75 72 6e 56 61 | 6c 75 65 2c 20 22 43 61 |returnVa|lue, "Ca|
|000006d0| 6e 27 74 20 73 65 74 20 | 61 67 6c 6f 62 61 6c 22 |n't set |aglobal"|
|000006e0| 29 3b 0d 09 09 72 65 74 | 75 72 6e 3b 0d 09 7d 0d |);...ret|urn;..}.|
|000006f0| 7d 0d 0d 0d 2f 2a 09 63 | 6f 70 79 20 77 68 6f 6c |}.../*.c|opy whol|
|00000700| 65 20 73 63 72 65 65 6e | 20 66 72 6f 6d 20 73 63 |e screen| from sc|
|00000710| 72 5f 6d 61 70 20 66 6f | 72 6d 61 74 20 69 6e 74 |r_map fo|rmat int|
|00000720| 6f 20 61 20 62 75 66 66 | 65 72 2c 20 72 65 74 75 |o a buff|er, retu|
|00000730| 72 6e 69 6e 67 20 63 6f | 75 6e 74 20 63 6f 70 69 |rning co|unt copi|
|00000740| 65 64 20 0d 09 74 61 72 | 67 65 74 20 62 75 66 66 |ed ..tar|get buff|
|00000750| 65 72 20 6d 75 73 74 20 | 68 61 76 65 20 28 53 43 |er must |have (SC|
|00000760| 52 45 45 4e 5f 53 49 5a | 45 20 2b 20 43 4f 4c 5f |REEN_SIZ|E + COL_|
|00000770| 53 49 5a 45 29 20 62 79 | 74 65 73 20 6d 69 6e 69 |SIZE) by|tes mini|
|00000780| 6d 75 6d 0d 09 69 6e 63 | 6c 75 64 65 73 20 61 6c |mum..inc|ludes al|
|00000790| 6c 20 73 70 61 63 65 73 | 20 0d 2a 2f 0d 0d 73 63 |l spaces| .*/..sc|
|000007a0| 72 65 65 6e 64 75 6d 70 | 28 62 75 66 70 2c 20 73 |reendump|(bufp, s|
|000007b0| 63 72 65 65 6e 70 2c 20 | 64 65 73 74 61 72 72 2c |creenp, |destarr,|
|000007c0| 20 63 6f 75 6e 74 29 0d | 75 6e 73 69 67 6e 65 64 | count).|unsigned|
|000007d0| 20 63 68 61 72 20 2a 20 | 62 75 66 70 3b 09 09 2f | char * |bufp;../|
|000007e0| 2a 20 70 6f 69 6e 74 73 | 20 61 74 20 62 65 67 69 |* points| at begi|
|000007f0| 6e 6e 69 6e 67 20 6f 66 | 20 73 63 72 5f 6d 61 70 |nning of| scr_map|
|00000800| 20 2a 2f 0d 75 6e 73 69 | 67 6e 65 64 20 63 68 61 | */.unsi|gned cha|
|00000810| 72 20 2a 20 73 63 72 65 | 65 6e 70 3b 09 2f 2a 20 |r * scre|enp;./* |
|00000820| 70 6f 69 6e 74 73 20 69 | 6e 74 6f 20 73 63 72 5f |points i|nto scr_|
|00000830| 6d 61 70 20 74 6f 20 72 | 65 61 64 20 66 72 6f 6d |map to r|ead from|
|00000840| 20 2a 2f 0d 75 6e 73 69 | 67 6e 65 64 20 63 68 61 | */.unsi|gned cha|
|00000850| 72 20 2a 20 64 65 73 74 | 61 72 72 3b 09 2f 2a 20 |r * dest|arr;./* |
|00000860| 70 6f 69 6e 74 73 20 74 | 6f 20 64 65 73 74 20 74 |points t|o dest t|
|00000870| 6f 20 77 72 69 74 65 20 | 69 6e 74 6f 20 2a 2f 0d |o write |into */.|
|00000880| 69 6e 74 20 63 6f 75 6e | 74 3b 09 09 09 09 09 2f |int coun|t;...../|
|00000890| 2a 20 73 63 72 70 20 2b | 20 63 6f 75 6e 74 20 2d |* scrp +| count -|
|000008a0| 3e 20 6c 61 73 74 20 63 | 68 61 72 20 74 6f 20 63 |> last c|har to c|
|000008b0| 6f 70 79 2c 20 65 78 63 | 6c 75 73 69 76 65 20 2a |opy, exc|lusive *|
|000008c0| 2f 0d 7b 0d 09 72 65 67 | 69 73 74 65 72 20 75 6e |/.{..reg|ister un|
|000008d0| 73 69 67 6e 65 64 20 63 | 68 61 72 20 2a 20 73 72 |signed c|har * sr|
|000008e0| 63 70 20 3d 20 73 63 72 | 65 65 6e 70 3b 0d 09 72 |cp = scr|eenp;..r|
|000008f0| 65 67 69 73 74 65 72 20 | 75 6e 73 69 67 6e 65 64 |egister |unsigned|
|00000900| 20 63 68 61 72 20 2a 20 | 64 65 73 74 70 20 3d 20 | char * |destp = |
|00000910| 64 65 73 74 61 72 72 3b | 0d 09 72 65 67 69 73 74 |destarr;|..regist|
|00000920| 65 72 20 75 6e 73 69 67 | 6e 65 64 20 63 68 61 72 |er unsig|ned char|
|00000930| 20 2a 20 65 6e 64 70 20 | 3d 20 73 63 72 65 65 6e | * endp |= screen|
|00000940| 70 20 2b 20 63 6f 75 6e | 74 3b 09 2f 2a 20 73 74 |p + coun|t;./* st|
|00000950| 61 6b 65 20 6f 75 74 20 | 74 68 65 20 65 78 63 6c |ake out |the excl|
|00000960| 75 64 65 64 20 65 6e 64 | 20 2a 2f 0d 09 72 65 67 |uded end| */..reg|
|00000970| 69 73 74 65 72 20 75 6e | 73 69 67 6e 65 64 20 63 |ister un|signed c|
|00000980| 68 61 72 20 74 68 65 63 | 68 61 72 3b 0d 09 75 6e |har thec|har;..un|
|00000990| 73 69 67 6e 65 64 20 63 | 68 61 72 20 2a 20 6c 69 |signed c|har * li|
|000009a0| 6e 65 65 6e 64 3b 09 09 | 09 09 09 09 2f 2a 20 72 |neend;..|..../* r|
|000009b0| 65 61 6c 6c 79 20 62 65 | 67 69 6e 6e 69 6e 67 20 |eally be|ginning |
|000009c0| 6f 66 20 6e 65 78 74 20 | 6c 69 6e 65 20 2a 2f 0d |of next |line */.|
|000009d0| 09 72 65 67 69 73 74 65 | 72 20 69 6e 74 20 73 6b |.registe|r int sk|
|000009e0| 69 70 6f 6e 7a 65 72 6f | 3b 09 09 09 2f 2a 20 23 |iponzero|;.../* #|
|000009f0| 20 6f 66 20 67 6f 6f 64 | 20 63 68 61 72 73 20 6c | of good| chars l|
|00000a00| 65 66 74 20 69 6e 20 6c | 69 6e 65 20 2a 2f 0d 09 |eft in l|ine */..|
|00000a10| 69 6e 74 20 66 69 72 73 | 74 74 69 6d 65 20 3d 20 |int firs|ttime = |
|00000a20| 74 72 75 65 3b 09 09 09 | 09 2f 2a 20 73 6b 69 70 |true;...|./* skip|
|00000a30| 20 43 52 20 66 69 72 73 | 74 20 74 69 6d 65 20 74 | CR firs|t time t|
|00000a40| 68 72 6f 75 67 68 20 6c | 6f 6f 70 20 2a 2f 0d 09 |hrough l|oop */..|
|00000a50| 0d 09 2f 2a 20 73 65 74 | 20 75 70 20 74 68 65 20 |../* set| up the |
|00000a60| 73 6b 69 70 6f 6e 7a 65 | 72 6f 20 76 61 72 20 66 |skiponze|ro var f|
|00000a70| 6f 72 20 65 6e 74 72 79 | 20 69 6e 74 6f 20 74 68 |or entry| into th|
|00000a80| 65 20 6c 6f 6f 70 20 2a | 2f 0d 09 6c 69 6e 65 65 |e loop *|/..linee|
|00000a90| 6e 64 20 3d 20 62 75 66 | 70 20 2b 20 28 28 28 28 |nd = buf|p + ((((|
|00000aa0| 73 72 63 70 20 2d 20 62 | 75 66 70 29 20 2f 20 52 |srcp - b|ufp) / R|
|00000ab0| 4f 57 5f 53 49 5a 45 29 | 29 20 2a 20 52 4f 57 5f |OW_SIZE)|) * ROW_|
|00000ac0| 53 49 5a 45 29 3b 0d 09 | 09 2f 2a 20 73 65 74 20 |SIZE);..|./* set |
|00000ad0| 75 70 20 6c 69 6e 65 65 | 6e 64 2c 20 77 68 69 63 |up linee|nd, whic|
|00000ae0| 68 20 77 69 6c 6c 20 70 | 6f 69 6e 74 20 74 6f 20 |h will p|oint to |
|00000af0| 62 65 67 69 6e 6e 69 6e | 67 20 6f 66 20 6e 65 78 |beginnin|g of nex|
|00000b00| 74 20 6c 69 6e 65 20 2a | 2f 0d 09 73 6b 69 70 6f |t line *|/..skipo|
|00000b10| 6e 7a 65 72 6f 20 3d 20 | 31 3b 0d 09 0d 09 77 68 |nzero = |1;....wh|
|00000b20| 69 6c 65 20 28 74 72 75 | 65 29 20 7b 0d 09 09 69 |ile (tru|e) {...i|
|00000b30| 66 20 28 2d 2d 73 6b 69 | 70 6f 6e 7a 65 72 6f 20 |f (--ski|ponzero |
|00000b40| 3d 3d 20 30 29 20 7b 0d | 09 09 09 69 66 20 28 66 |== 0) {.|...if (f|
|00000b50| 69 72 73 74 74 69 6d 65 | 29 0d 09 09 09 09 66 69 |irsttime|).....fi|
|00000b60| 72 73 74 74 69 6d 65 20 | 3d 20 66 61 6c 73 65 3b |rsttime |= false;|
|00000b70| 0d 09 09 09 65 6c 73 65 | 20 7b 0d 09 09 09 09 2a |....else| {.....*|
|00000b80| 64 65 73 74 70 2b 2b 20 | 3d 20 43 52 3b 09 09 09 |destp++ |= CR;...|
|00000b90| 09 09 09 09 2f 2a 20 69 | 6e 73 65 72 74 20 61 20 |..../* i|nsert a |
|00000ba0| 43 52 20 66 6f 72 20 6c | 69 6e 65 20 65 6e 64 20 |CR for l|ine end |
|00000bb0| 2a 2f 0d 09 09 09 09 73 | 72 63 70 20 3d 20 6c 69 |*/.....s|rcp = li|
|00000bc0| 6e 65 65 6e 64 3b 09 09 | 09 09 09 09 09 2f 2a 20 |neend;..|...../* |
|00000bd0| 73 65 74 20 73 72 63 70 | 20 66 6f 72 77 61 72 64 |set srcp| forward|
|00000be0| 20 2a 2f 0d 09 09 09 09 | 69 66 20 28 73 72 63 70 | */.....|if (srcp|
|00000bf0| 20 3e 3d 20 65 6e 64 70 | 29 0d 09 09 09 09 09 2f | >= endp|)....../|
|00000c00| 2a 20 71 75 69 74 20 77 | 68 65 6e 20 77 65 27 76 |* quit w|hen we'v|
|00000c10| 65 20 64 6f 6e 65 20 74 | 68 65 20 77 6f 72 6b 20 |e done t|he work |
|00000c20| 2a 2f 0d 09 09 09 09 09 | 62 72 65 61 6b 3b 0d 09 |*/......|break;..|
|00000c30| 09 09 7d 0d 09 09 09 0d | 09 09 09 6c 69 6e 65 65 |..}.....|...linee|
|00000c40| 6e 64 20 2b 3d 20 52 4f | 57 5f 53 49 5a 45 3b 0d |nd += RO|W_SIZE;.|
|00000c50| 0d 09 09 09 73 6b 69 70 | 6f 6e 7a 65 72 6f 20 3d |....skip|onzero =|
|00000c60| 20 52 4f 57 5f 53 49 5a | 45 3b 0d 09 09 7d 0d 09 | ROW_SIZ|E;...}..|
|00000c70| 09 69 66 20 28 73 72 63 | 70 20 3e 3d 20 65 6e 64 |.if (src|p >= end|
|00000c80| 70 29 0d 09 09 09 2f 2a | 20 71 75 69 74 20 77 68 |p)..../*| quit wh|
|00000c90| 65 6e 20 77 65 27 76 65 | 20 64 6f 6e 65 20 74 68 |en we've| done th|
|00000ca0| 65 20 77 6f 72 6b 20 2a | 2f 0d 09 09 09 62 72 65 |e work *|/....bre|
|00000cb0| 61 6b 3b 0d 0d 09 09 2f | 2a 20 63 6f 70 79 20 2a |ak;..../|* copy *|
|00000cc0| 2f 0d 09 09 69 66 20 28 | 28 28 74 68 65 63 68 61 |/...if (|((thecha|
|00000cd0| 72 20 3d 20 2a 73 72 63 | 70 2b 2b 29 20 3d 3d 20 |r = *src|p++) == |
|00000ce0| 28 75 6e 73 69 67 6e 65 | 64 20 63 68 61 72 29 20 |(unsigne|d char) |
|00000cf0| 30 78 46 46 29 20 7c 7c | 20 28 74 68 65 63 68 61 |0xFF) ||| (thecha|
|00000d00| 72 20 3c 20 41 54 54 52 | 29 29 0d 09 09 09 2f 2a |r < ATTR|))..../*|
|00000d10| 20 75 73 65 20 73 70 61 | 63 65 20 66 6f 72 20 6e | use spa|ce for n|
|00000d20| 75 6c 6c 73 20 61 6e 64 | 20 61 74 74 72 69 62 75 |ulls and| attribu|
|00000d30| 74 65 73 20 2a 2f 0d 09 | 09 09 2a 64 65 73 74 70 |tes */..|..*destp|
|00000d40| 2b 2b 20 3d 20 27 20 27 | 3b 0d 09 09 65 6c 73 65 |++ = ' '|;...else|
|00000d50| 0d 09 09 09 2a 64 65 73 | 74 70 2b 2b 20 3d 20 74 |....*des|tp++ = t|
|00000d60| 68 65 63 68 61 72 3b 0d | 09 7d 0d 09 72 65 74 75 |hechar;.|.}..retu|
|00000d70| 72 6e 28 64 65 73 74 70 | 20 2d 20 64 65 73 74 61 |rn(destp| - desta|
|00000d80| 72 72 29 3b 09 09 2f 2a | 20 72 65 74 75 72 6e 20 |rr);../*| return |
|00000d90| 6c 65 6e 67 74 68 20 2a | 2f 0d 7d 0d 0d 73 65 74 |length *|/.}..set|
|00000da0| 68 61 6e 64 28 74 68 61 | 6e 64 2c 20 73 74 72 29 |hand(tha|nd, str)|
|00000db0| 0d 48 61 6e 64 6c 65 20 | 2a 20 74 68 61 6e 64 3b |.Handle |* thand;|
|00000dc0| 0d 63 68 61 72 20 2a 20 | 73 74 72 3b 0d 7b 0d 09 |.char * |str;.{..|
|00000dd0| 69 66 20 28 2a 74 68 61 | 6e 64 20 3d 3d 20 4e 55 |if (*tha|nd == NU|
|00000de0| 4c 4c 29 20 7b 0d 09 09 | 2a 74 68 61 6e 64 20 3d |LL) {...|*thand =|
|00000df0| 20 4e 65 77 48 61 6e 64 | 6c 65 28 28 53 69 7a 65 | NewHand|le((Size|
|00000e00| 29 20 30 29 3b 0d 09 7d | 0d 09 53 65 74 48 61 6e |) 0);..}|..SetHan|
|00000e10| 64 6c 65 53 69 7a 65 28 | 2a 74 68 61 6e 64 2c 20 |dleSize(|*thand, |
|00000e20| 28 6c 6f 6e 67 29 20 28 | 73 74 72 6c 65 6e 28 73 |(long) (|strlen(s|
|00000e30| 74 72 29 20 2b 20 31 29 | 29 3b 0d 09 73 74 72 63 |tr) + 1)|);..strc|
|00000e40| 70 79 28 2a 2a 74 68 61 | 6e 64 2c 20 73 74 72 29 |py(**tha|nd, str)|
|00000e50| 3b 0d 7d 0d 0d 0d 6c 6f | 6e 67 20 6d 79 73 74 72 |;.}...lo|ng mystr|
|00000e60| 74 6f 6c 6f 6e 67 28 73 | 74 72 70 29 0d 75 6e 73 |tolong(s|trp).uns|
|00000e70| 69 67 6e 65 64 20 63 68 | 61 72 20 2a 20 73 74 72 |igned ch|ar * str|
|00000e80| 70 3b 0d 7b 0d 09 6c 6f | 6e 67 20 72 65 74 76 61 |p;.{..lo|ng retva|
|00000e90| 6c 3b 0d 09 63 68 61 72 | 20 6e 65 67 61 74 65 20 |l;..char| negate |
|00000ea0| 3d 20 30 3b 0d 09 0d 09 | 72 65 74 76 61 6c 20 3d |= 0;....|retval =|
|00000eb0| 20 30 3b 0d 09 69 66 20 | 28 2a 73 74 72 70 20 3d | 0;..if |(*strp =|
|00000ec0| 3d 20 27 2d 27 29 20 7b | 0d 09 09 6e 65 67 61 74 |= '-') {|...negat|
|00000ed0| 65 20 3d 20 31 3b 0d 09 | 09 73 74 72 70 2b 2b 3b |e = 1;..|.strp++;|
|00000ee0| 0d 09 7d 0d 09 77 68 69 | 6c 65 20 28 2a 73 74 72 |..}..whi|le (*str|
|00000ef0| 70 29 20 7b 0d 09 09 72 | 65 74 76 61 6c 20 3d 20 |p) {...r|etval = |
|00000f00| 28 6c 6f 6e 67 29 20 28 | 72 65 74 76 61 6c 20 2a |(long) (|retval *|
|00000f10| 20 31 30 29 20 2b 20 28 | 6c 6f 6e 67 29 20 28 2a | 10) + (|long) (*|
|00000f20| 73 74 72 70 20 2d 20 27 | 30 27 29 3b 0d 09 09 73 |strp - '|0');...s|
|00000f30| 74 72 70 2b 2b 3b 0d 09 | 7d 0d 09 69 66 20 28 6e |trp++;..|}..if (n|
|00000f40| 65 67 61 74 65 29 0d 09 | 09 72 65 74 76 61 6c 20 |egate)..|.retval |
|00000f50| 3d 20 28 6c 6f 6e 67 29 | 20 2d 72 65 74 76 61 6c |= (long)| -retval|
|00000f60| 3b 0d 09 72 65 74 75 72 | 6e 28 72 65 74 76 61 6c |;..retur|n(retval|
|00000f70| 29 3b 0d 7d 0d 0d 0d 0d | 0d 23 69 6e 63 6c 75 64 |);.}....|.#includ|
|00000f80| 65 20 3c 58 43 6d 64 47 | 6c 75 65 2e 69 6e 63 2e |e <XCmdG|lue.inc.|
|00000f90| 63 3e 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |c>......|........|
|00000fa0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000fb0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000fc0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000fd0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000fe0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000ff0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001000| 00 00 01 00 00 00 01 4c | 00 00 00 4c 00 00 00 32 |.......L|...L...2|
|00001010| 00 00 07 3c 00 00 00 00 | 00 00 00 00 00 00 00 00 |...<....|........|
|00001020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001030| 0b 54 4e 52 65 63 65 69 | 76 65 2e 63 02 00 00 00 |.TNRecei|ve.c....|
|00001040| 50 61 72 74 53 49 54 78 | 00 00 00 00 00 00 00 00 |PartSITx|........|
|00001050| 00 00 50 61 72 74 53 49 | 54 78 00 00 00 00 00 00 |..PartSI|Tx......|
|00001060| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001070| 00 00 a9 8d 3a 8a 00 00 | 00 00 00 00 01 7e 00 00 |....:...|.....~..|
|00001080| 00 00 00 00 00 00 00 00 | 00 00 02 96 25 00 00 00 |........|....%...|
|00001090| 07 3c 0a 41 70 70 6c 65 | 53 68 61 72 65 00 00 00 |.<.Apple|Share...|
|000010a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000010b0| 00 00 00 00 02 97 25 00 | 00 00 07 3c 0e 43 6c 69 |......%.|...<.Cli|
|000010c0| 70 62 6f 61 72 64 20 46 | 69 6c 65 00 00 00 00 00 |pboard F|ile.....|
|000010d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 03 1f |........|........|
|000010e0| 25 00 00 00 07 3c 06 63 | 6f 72 76 75 73 00 00 00 |%....<.c|orvus...|
|000010f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001100| 00 00 00 48 00 09 4d 6f | 6e 61 63 6f 00 fa 00 00 |...H..Mo|naco....|
|00001110| 00 00 04 1c 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001120| 00 00 00 00 00 00 00 06 | 00 04 00 29 00 02 01 85 |........|...)....|
|00001130| 02 02 00 29 00 02 01 85 | 02 02 a2 80 5c 1f 00 00 |...)....|....\...|
|00001140| 05 5d 00 00 05 5d 00 00 | 04 6e 01 00 00 00 01 00 |.]...]..|.n......|
|00001150| 00 00 01 4c 00 00 00 4c | 00 00 00 32 00 33 4e 1c |...L...L|...2.3N.|
|00001160| 09 30 00 00 00 1c 00 32 | 00 00 4d 50 53 52 00 00 |.0.....2|..MPSR..|
|00001170| 00 0a 03 ed ff ff 00 00 | 00 00 00 34 87 68 00 00 |........|...4.h..|
+--------+-------------------------+-------------------------+--------+--------+